--- Test changed behavior of @_.foo bar@ expressions
module tests.comp.Underscore where


main = do
        println "filter (not . _.startsWith \"foobar\") [\"foo\", \"bar\", \"foobarbaz\"]"
        print "Used to be: "
        println $ filter (not . "foobar".startsWith) strings
        print "Should now be: "
        println $ filter (not . (String.`startsWith` "foobar")) strings
        println $ filter (not . _.startsWith "foobar") strings
    where
        strings = ["foo", "bar", "foobarbaz"]